home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 27
/
027.d81
/
screen banner64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
72 lines
5 ifcothensys64738
100 gosub 5000
110 gosub 5200
120 gosub 5400
130 goto 5600
5000 :
5010 :
5012 poke53281,10:poke53280,5
5020 printchr$(147)chr$(142)
5030 print" screen banner 64:"
5040 print" -----------------"
5050 print" by ian adam"
5060 print" this program scrolls a banner message"
5070 print" across the bottom of the screen"
5080 print" using the 64's split screen and"
5090 print" fine-scrolling capabilities."
5100 return
5110 :
5200 rem poke data
5210 :
5220 print" now loading data..."
5230 fori=49152to49291
5240 readx:pokei,x
5250 ch=ch+x:next
5260 ifch<>18358thenprint"checksum error - double-check data!":stop
5270 return
5280 :
5290 :
5300 :
5310 data120,169,127,141,13,220,169,1,141,26,208,169,27,141,17,208,169,28
5320 data141,20,3,169,192,141,21,3,88,96,173,25,208,141,25,208,162,0
5330 data189,130,192,141,24,208,189,132,192,141,33,208,189,134,192,141
5340 data22,208,189,136,192,141,18,208,138,73,1,141,35,192,240,3,76,188
5350 data254,165,162,73,7,41,7,141,134,192,201,7,208,43,174,138,192,232
5360 data236,139,192,208,2,162,0,142,138,192,160,216,189,140,192,153,232
5370 data2,232,236,139,192,208,2,162,0,200,208,239,169,0,160,39,153,192
5380 data219,136,16,250,76,49,234,5,21,14,6,7,200,250,242,235,255
5390 :
5400 :
5410 :
5420 print" *press return to proceed[145]":inputa$
5430 print"[147]";
5440 a$=" "
5450 fori=1to3:printa$:next
5460 printtab(15)chr$(18)a$
5470 print"type message in area above, using lots"
5480 print"of space, then press return"
5490 poke631,19:poke198,1
5500 inputa$
5510 a=49291:b=1023
5520 fori=1to255
5530 pokea+i,peek(b+i):next
5540 poke49285,10:return
5550 :
5600 :
5610 tc=1:sc=0:bc=2:sys49152
5620 print"adjustments:":print" "
5630 print"f1- change banner text color":rem 49270, text colour"
5640 [153]"f3- change banner color":[143] 49284, colour of banner"
5650 print"f5- change screen color":rem 49285, colour of main screen"
5660 [153]"f7- enter new message"
5670 [153]"sys49152 enables message"
5680 [153]"press 'l' to return to loadstar"
5700 [161]a$
5710 [139]a$[178]"input"[167]tc[178]tc[170]1:[139]tc[177]15[167]tc[178]0
5720 [139]a$[178]"dim"[167]bc[178]bc[170]1:[139]bc[177]15[167]bc[178]0
5730 [139]a$[178]"read"[167]sc[178]sc[170]1:[139]sc[177]15[167]sc[178]0
5740 [139]a$[178]"let"[167][141]5430:[137]5600
5750 [139]a$[178]"l"[176]a$[178]"(NULL)"[167]6000
5760 [151]49270,tc:[151]49284,bc:[151]49285,sc:[137]5700
6000 co[178]1:[151]928,0:[147]"magic iii",8,1